CD Ware Multimedia 1995 May/cd Ware (Juegos) Epimundo.iso/WIN/VB_DB/PROFIT.ZIP/DELIMAIN.FRM

Visual Basic Form | 1993-09-23 | 11.1 KB | 424 lines

VERSION 2.00
Begin MDIForm DeliMain
   Caption         =   "Profit Chef"
   ClientHeight    =   3450
   ClientLeft      =   1305
   ClientTop       =   2355
   ClientWidth     =   6915
   Height          =   4140
   Icon            =   DELIMAIN.FRX:0000
   Left            =   1245
   LinkMode        =   1  'Source
   LinkTopic       =   "DeliMain"
   Top             =   1725
   Width           =   7035
   Begin PictureBox picToolbar
      Align           =   1  'Align Top
      BackColor       =   &H00C0C0C0&
      Height          =   525
      Left            =   0
      ScaleHeight     =   500
      ScaleMode       =   0  'User
      ScaleWidth      =   6885
      TabIndex        =   0
      Top             =   0
      Width           =   6915
      Begin CommonDialog CMDialog1
         Left            =   6330
         Top             =   30
      End
      Begin SSCommand C3DLabels
         Height          =   500
         Left            =   3700
         Picture         =   DELIMAIN.FRX:0302
         TabIndex        =   8
         Top             =   0
         Width           =   500
      End
      Begin SSCommand C3DPrice
         Height          =   500
         Left            =   3200
         Picture         =   DELIMAIN.FRX:0604
         TabIndex        =   7
         Top             =   0
         Width           =   500
      End
      Begin SSCommand C3DOrder
         Height          =   500
         Left            =   2700
         Picture         =   DELIMAIN.FRX:0906
         TabIndex        =   6
         Top             =   0
         Width           =   500
      End
      Begin SSCommand C3DIngred
         Height          =   500
         Left            =   2200
         Picture         =   DELIMAIN.FRX:0C08
         TabIndex        =   5
         Top             =   0
         Width           =   500
      End
      Begin SSCommand C3DRecipe
         Height          =   500
         Left            =   1600
         Picture         =   DELIMAIN.FRX:0F0A
         TabIndex        =   4
         Top             =   0
         Width           =   500
      End
      Begin SSCommand C3DChanges
         Height          =   500
         Left            =   1100
         Picture         =   DELIMAIN.FRX:120C
         TabIndex        =   3
         Top             =   0
         Width           =   500
      End
      Begin SSCommand C3DBun
         Height          =   500
         Left            =   600
         Picture         =   DELIMAIN.FRX:150E
         TabIndex        =   2
         Top             =   0
         Width           =   500
      End
      Begin SSCommand C3DReset
         Height          =   500
         Left            =   0
         Picture         =   DELIMAIN.FRX:1810
         TabIndex        =   1
         Top             =   0
         Width           =   500
      End
   End
   Begin Menu File
      Caption         =   "&File"
      Begin Menu FileSupplier
         Caption         =   "&1-Supplier File"
      End
      Begin Menu FileRecGroup
         Caption         =   "&2-Recipe Group File"
      End
      Begin Menu FileIngGroup
         Caption         =   "&3-Ingredient Group File"
      End
      Begin Menu FileIngred
         Caption         =   "&4-Ingredient File"
      End
      Begin Menu FileRecipe
         Caption         =   "&5-Recipe File"
      End
      Begin Menu FileSalesMix
         Caption         =   "&6-Sales Mix File"
      End
      Begin Menu FileExit
         Caption         =   "E&xit"
      End
   End
   Begin Menu Report
      Caption         =   "&Report"
      Begin Menu ReportIngredient
         Caption         =   "&Ingredient List"
      End
      Begin Menu ReportOrderGuide
         Caption         =   "&Order Guide"
      End
      Begin Menu ReportAuto
         Caption         =   "&Suggested Retail Changes"
      End
      Begin Menu ReportPrice
         Caption         =   "&Price List"
      End
      Begin Menu ReportMix
         Caption         =   "Sales &Mix Profitability"
      End
      Begin Menu Sep1
         Caption         =   "-"
      End
      Begin Menu ReportLabel
         Caption         =   "&All Label Print"
      End
      Begin Menu ReportChangeLabel
         Caption         =   "&Change Label Print"
      End
      Begin Menu ReportIndividual
         Caption         =   "I&ndividual Label Print"
      End
      Begin Menu Sep2
         Caption         =   "-"
      End
      Begin Menu ReportRecipe
         Caption         =   "&Recipe List"
      End
      Begin Menu ReportSupplier
         Caption         =   "S&upplier List"
      End
      Begin Menu ReportIngGroup
         Caption         =   "In&gredient Group List"
      End
      Begin Menu ReportRecGroup
         Caption         =   "R&ecipe Group List"
      End
   End
   Begin Menu Utilities
      Caption         =   "&Utilities"
      Begin Menu UtilityReset
         Caption         =   "&Reset Recipe Update Flags"
      End
      Begin Menu UtilitySubstitute
         Caption         =   "&Substitute Ingredient"
      End
   End
   Begin Menu Options
      Caption         =   "&Options"
      Begin Menu OptionsPrint
         Caption         =   "&Print Options"
      End
      Begin Menu OptionsLabel
         Caption         =   "&Shelf Label Format"
      End
      Begin Menu OptionsToolbar
         Caption         =   "&ToolBar"
         Checked         =   -1  'True
      End
   End
   Begin Menu Help
      Caption         =   "&Help"
      Begin Menu HelpAbout
         Caption         =   "&About"
      End
      Begin Menu HelpContents
         Caption         =   "&Contents"
      End
   End
Sub C3DBun_Click ()
    IngreMnt.Show 0
End Sub
Sub C3DChanges_Click ()
     PrnAuto.Show 1
     DeliMain.Show
End Sub
Sub C3DIngred_Click ()
     PrnIngre.Show 1
     DeliMain.Show
End Sub
Sub C3DLabels_Click ()
     ReportSelection = 2
     PrnLabel.Show 1
     DeliMain.Show
End Sub
Sub C3DOrder_Click ()
     PrnOrder.Show 1
     DeliMain.Show
End Sub
Sub C3DPrice_Click ()
     PrnPrice.Show 1
     DeliMain.Show
End Sub
Sub C3DRecipe_Click ()
    RecipMnt.Show 0
End Sub
Sub C3DReset_Click ()
     UpdtRset.Show 1
     DeliMain.Show
End Sub
Sub FileExit_Click ()
    Unload DeliMain
End Sub
Sub FileIngGroup_Click ()
    IngGrMnt.Show 0
End Sub
Sub FileIngred_Click ()
    IngreMnt.Show 0
End Sub
Sub FileRecGroup_Click ()
    RecGrMnt.Show 0
End Sub
Sub FileRecipe_Click ()
    RecipMnt.Show 0
End Sub
Sub FileSalesMix_Click ()
    SalesMix.Show 0
End Sub
Sub FileSupplier_Click ()
    SupMnt.Show 0
End Sub
Sub HelpAbout_Click ()
     AboutBox.Show 1
End Sub
Sub HelpContents_Click ()
  If FileExists("deli.hlp") Then
    Const HELP_KEY = &H101
    CMDialog1.HelpFile = "deli.hlp"
    CMDialog1.HelpCommand = HELP_KEY
    CMDialog1.HelpKey = "Contents"
    CMDialog1.Action = 6
  Else
    Msg$ = "Help file not found."
    T1% = MsgBox(Msg$, 0, "Note")
  End If
End Sub
Sub MDIForm_Load ()
  '******** Initialize Btrieve ********************
    init$ = "/m:38 /p:4096 /b:16 /u:2 /f:20 /l:20 /n:12 /t:c:\btrieve.trn"
    St% = WBtrvInit(init$)
    If St% <> 0 Then
      Msg$ = "Btrieve not initialized.  Status = " + Str$(St%)
      T1% = MsgBox(Msg$, 0, "Warning!")
    End If
    If FileExists("deli.cfg") Then
      CfgFileNo% = FreeFile
      Open "deli.cfg" For Random As CfgFileNo% Len = Len(CfgRec)
      Get #CfgFileNo%, 1, CfgRec
      Close CfgFileNo%
    Else
      CfgRec.PrintOptNumber = 1
      CfgRec.FontName = Printer.FontName
      CfgRec.FontSize = Printer.FontSize
      CfgRec.TopMargin = 27
      CfgRec.LeftMargin = 53
      CfgRec.LabelWidth = 338
      CfgRec.LabelHeight = 123
      CfgRec.DescriptionX = 0
      CfgRec.DescriptionY = 0
      CfgRec.DescriptionFS = 12
      CfgRec.RecipeNoX = 0
      CfgRec.RecipeNoY = 27
      CfgRec.RecipeNoFS = 10
      CfgRec.PriceX = 183
      CfgRec.PriceY = 83
      CfgRec.PriceFS = 40
      CfgRec.ShelfLifeX = 100
      CfgRec.ShelfLifeY = 27
      CfgRec.ShelfLifeFS = 10
      CfgRec.LabelRows = 6
      CfgRec.LabelColumns = 3
      CfgRec.LandPortFlag = 2 'Landscape
      CfgRec.ToolBar = True
    End If
    OpenIngGroupFile
    OpenIngredientFile
    OpenSupplierFile
    OpenRecGroupFile
    OpenRecipeFile
    OpenRecipeDetFile
    OpenSalesMixFile
    AboutBox!Command1.Visible = True
    Unload AboutBox
    DeliMain.Left = 0
    DeliMain.Top = 0
    DeliMain.Width = 9600
    DeliMain.Height = 7200
    If CfgRec.ToolBar Then
      OptionsToolbar.Checked = True
      PicToolBar.Visible = True
    Else
      OptionsToolbar.Checked = False
      PicToolBar.Visible = False
    End If
    DeliMain.Show 0
    Screen.MousePointer = 0
End Sub
Sub MDIForm_Unload (Cancel As Integer)
  CloseSupplierFile
  CloseIngredientFile
  CloseIngGroupFile
  CloseRecGroupFile
  CloseRecipeFile
  CloseRecipeDetFile
  CloseSalesMixFile
  Unload SupMnt
  Unload RecGrMnt
  Unload IngGrMnt
  Unload IngreMnt
  Unload RecipMnt
  Unload SubSingr
  Unload LblFrmt
  Unload PrintOpt
  Unload SalesMix
  '*********** Stop Btrieve *****************************
  T1% = WBtrvStop()
  End
End Sub
Sub OptionsLabel_Click ()
     LblFrmt.Show 0
End Sub
Sub OptionsPrint_Click ()
     PrintOpt.Show 0
End Sub
Sub OptionsToolbar_Click ()
   If OptionsToolbar.Checked = True Then
     OptionsToolbar.Checked = False
     PicToolBar.Visible = False
     CfgRec.ToolBar = False
   Else
     OptionsToolbar.Checked = True
     PicToolBar.Visible = True
     CfgRec.ToolBar = True
   End If
   CfgFileNo% = FreeFile
   Open "deli.cfg" For Random As CfgFileNo% Len = Len(CfgRec)
   Put #CfgFileNo%, 1, CfgRec
   Close CfgFileNo%
End Sub
Sub ReportAuto_Click ()
     PrnAuto.Show 1
     DeliMain.Show
End Sub
Sub ReportChangeLabel_Click ()
     ReportSelection = 2

     PrnLabel.Show 1
     DeliMain.Show
End Sub
Sub ReportIndividual_Click ()
     ReportSelection = 3
     PrnLabel.Show 1
     DeliMain.Show
End Sub
Sub ReportIngGroup_Click ()
     PrnIngGr.Show 1
     DeliMain.Show
End Sub
Sub ReportIngredient_Click ()
     PrnIngre.Show 1
     DeliMain.Show
End Sub
Sub ReportLabel_Click ()
     ReportSelection = 1
     PrnLabel.Show 1
     DeliMain.Show
End Sub
Sub ReportMix_Click ()
     PrnMix.Show 1
     DeliMain.Show
End Sub
Sub ReportOrderGuide_Click ()
     PrnOrder.Show 1
     DeliMain.Show
End Sub
Sub ReportPrice_Click ()
     PrnPrice.Show 1
     DeliMain.Show
End Sub
Sub ReportRecGroup_Click ()
     PrnRecGr.Show 1
     DeliMain.Show
End Sub
Sub ReportRecipe_Click ()
     PrnRecip.Show 1
     DeliMain.Show
End Sub
Sub ReportSupplier_Click ()
     PrnSuppl.Show 1
     DeliMain.Show
End Sub
Sub UtilityReset_Click ()
     UpdtRset.Show 1
     DeliMain.Show
End Sub
Sub UtilitySubstitute_Click ()
     SubSingr.Show 0
End Sub